home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / new_ugp.dxr / 00050_Bootcamp Menu Init.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  3.9 KB  |  77 lines
  1. on exitFrame
  2.   set newMenu to CreateMenu([#statusMessage: "Select a fighter to see a move."])
  3.   SetStatusMember(newMenu, [#statusMember: "bootcamp status"])
  4.   mmButton(newMenu, [#downMember: "ugpC_61"])
  5.   quitButton(newMenu, [#downMember: "ugpC_71"])
  6.   ShowVolumeControl()
  7.   set textListSprite to 1
  8.   set miniGameCtrl to 26
  9.   set bigGameCtrl to 45
  10.   set coverSprite to 46
  11.   set remoteCtrlSprites to [9, 10, 11, 12, 13, 14, 15]
  12.   set remoteParams to [#onSprite: 8, #offSprite: 15, #buttonSpriteList: remoteCtrlSprites]
  13.   NewVideoDisplay(newMenu, [#cleanup: 0])
  14.   CreateRemoteControl(newMenu, 10)
  15.   set showVidCtrl to SetRemote(newMenu, remoteParams)
  16.   append(remoteCtrlSprites, the spritenum of the videoDisplay of the currMenu of GetGlobal(#gTitleObject))
  17.   SetControllers(newMenu, bigGameCtrl, miniGameCtrl, coverSprite, remoteCtrlSprites)
  18.   set textList to NewObject(newMenu, "Text Display Class", [#spritenum: textListSprite, #windowBottom: 348])
  19.   NewTextSlider(newMenu, [#sliderSprite: 20, #sliderBottom: 237, #textDisplay: textList])
  20.   SetGameList(newMenu, textListSprite, miniGameCtrl, bigGameCtrl, showVidCtrl)
  21.   NewLauncher(newMenu, [#spritenum: 6, #message: "Visit PSX Power.", #url: "websites\psx"])
  22.   NewObject(newMenu, "Background Audio Class", [#audioMember: "ugpC-background"])
  23.   cursor(-1)
  24.   return newMenu
  25. end
  26.  
  27. on CreateRemoteControl newMenu, playSprite
  28.   set videoDisplay to the videoDisplay of the currMenu of GetGlobal(#gTitleObject)
  29.   set controlSprite to playSprite
  30.   repeat with control in [#play, #stop, #slow, #fwdframe, #backframe]
  31.     set button to BasicButton(newMenu, [#hotSprites: [controlSprite]])
  32.     AddDown(button, NewObject(newMenu, "Video Control Class", [#videoControl: control, #videoDisplay: videoDisplay]))
  33.     set controlSprite to controlSprite + 1
  34.   end repeat
  35. end
  36.  
  37. on SetGameList newMenu, textListSprite, miniSprite, bigSprite, showVidCtrl
  38.   global titleDatabase
  39.   set gameList to getrecords(titleDatabase, #all, "bootcamp")
  40.   if not listp(gameList) then
  41.     put "No games in that category"
  42.   else
  43.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: "Select a fighter to see a move."])
  44.     set gameParams to [#gameList: gameList, #memberID: the memberNum of sprite textListSprite, #normalColor: 6, #hiliteColor: 5]
  45.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  46.     set gameParams to [#gameList: gameList, #miniSprite: miniSprite, #bigSprite: bigSprite]
  47.     AddDown(button, NewObject(newMenu, "GameCtrl Class", gameParams))
  48.     AddDown(button, showVidCtrl)
  49.   end if
  50. end
  51.  
  52. on NewTextSlider newMenu, paramList
  53.   set button to BasicButton(newMenu, [#hotSprites: [getProp(paramList, #sliderSprite)], #statusMessage: "Drag to Scroll"])
  54.   AddDown(button, NewObject(newMenu, "Text Slider Class", paramList))
  55. end
  56.  
  57. on SetRemote newMenu, paramList
  58.   set onSprite to getProp(paramList, #onSprite)
  59.   set offSprite to getProp(paramList, #offSprite)
  60.   set remoteSprites to getProp(paramList, #buttonSpriteList)
  61.   set button to BasicButton(newMenu, [#hotSprites: [onSprite]])
  62.   set onHilite to NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: remoteSprites, #hideSpriteList: [onSprite]])
  63.   AddDown(button, onHilite)
  64.   set button to BasicButton(newMenu, [#hotSprites: [offSprite]])
  65.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: [onSprite], #hideSpriteList: remoteSprites]))
  66.   set the visible of sprite onSprite to 1
  67.   return onHilite
  68. end
  69.  
  70. on SetControllers newMenu, bigGameCtrl, miniGameCtrl, coverSprite, remoteCtrlSprites
  71.   set button to BasicButton(newMenu, [#hotSprites: [coverSprite]])
  72.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#hideSpriteList: [bigGameCtrl, coverSprite]]))
  73.   set button to BasicButton(newMenu, [#hotSprites: [miniGameCtrl]])
  74.   AddDown(button, NewObject(newMenu, "Video Sequence Class", [#memberNum: 0]))
  75.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: [bigGameCtrl, coverSprite], #hideSpriteList: remoteCtrlSprites]))
  76. end
  77.